home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fg / aboutbox.frm next >
Text File  |  1994-10-26  |  5KB  |  157 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About FG Draw"
  6.    ClientHeight    =   2865
  7.    ClientLeft      =   1365
  8.    ClientTop       =   1425
  9.    ClientWidth     =   5640
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    FontBold        =   -1  'True
  13.    FontItalic      =   0   'False
  14.    FontName        =   "System"
  15.    FontSize        =   9.75
  16.    FontStrikethru  =   0   'False
  17.    FontUnderline   =   0   'False
  18.    Height          =   3270
  19.    HelpContextID   =   57
  20.    Icon            =   ABOUTBOX.FRX:0000
  21.    Left            =   1305
  22.    LinkMode        =   1  'Source
  23.    LinkTopic       =   "Form2"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2865
  27.    ScaleWidth      =   5640
  28.    Top             =   1080
  29.    Width           =   5760
  30.    Begin PictureBox Pic_ApplicationIcon 
  31.       AutoSize        =   -1  'True
  32.       BackColor       =   &H00C0C0C0&
  33.       BorderStyle     =   0  'None
  34.       Height          =   480
  35.       HelpContextID   =   58
  36.       Left            =   255
  37.       Picture         =   ABOUTBOX.FRX:0302
  38.       ScaleHeight     =   480
  39.       ScaleWidth      =   480
  40.       TabIndex        =   4
  41.       Top             =   255
  42.       Width           =   480
  43.    End
  44.    Begin CommandButton Cmd_OK 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "OK"
  47.       FontBold        =   -1  'True
  48.       FontItalic      =   0   'False
  49.       FontName        =   "System"
  50.       FontSize        =   9.75
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   360
  54.       HelpContextID   =   59
  55.       Left            =   4365
  56.       TabIndex        =   6
  57.       Top             =   2400
  58.       Width           =   1035
  59.    End
  60.    Begin Line lin_HorizontalLine1 
  61.       BorderWidth     =   2
  62.       X1              =   975
  63.       X2              =   5010
  64.       Y1              =   1965
  65.       Y2              =   1965
  66.    End
  67.    Begin Label Lbl_IconWorks 
  68.       BackColor       =   &H00C0C0C0&
  69.       Caption         =   "FG Draw"
  70.       FontBold        =   -1  'True
  71.       FontItalic      =   0   'False
  72.       FontName        =   "MS Sans Serif"
  73.       FontSize        =   18
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       Height          =   450
  77.       Left            =   990
  78.       TabIndex        =   1
  79.       Top             =   270
  80.       Width           =   1920
  81.    End
  82.    Begin Label Lbl_Version 
  83.       BackColor       =   &H00C0C0C0&
  84.       Caption         =   "Version 1.00"
  85.       FontBold        =   -1  'True
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Sans Serif"
  88.       FontSize        =   9.75
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   240
  92.       Left            =   990
  93.       TabIndex        =   2
  94.       Top             =   840
  95.       Width           =   1470
  96.    End
  97.    Begin Label Lbl_Microsoft 
  98.       BackColor       =   &H00C0C0C0&
  99.       Caption         =   "Written by Douglas Brown "
  100.       FontBold        =   -1  'True
  101.       FontItalic      =   0   'False
  102.       FontName        =   "MS Sans Serif"
  103.       FontSize        =   9.75
  104.       FontStrikethru  =   0   'False
  105.       FontUnderline   =   0   'False
  106.       Height          =   735
  107.       Left            =   990
  108.       TabIndex        =   3
  109.       Top             =   1110
  110.       Width           =   4365
  111.    End
  112.    Begin Label Lbl_Info 
  113.       BackColor       =   &H00C0C0C0&
  114.       Height          =   600
  115.       Left            =   1020
  116.       TabIndex        =   5
  117.       Top             =   2145
  118.       Width           =   1875
  119.    End
  120.    Begin Label Lbl_InfoValues 
  121.       BackColor       =   &H00C0C0C0&
  122.       Height          =   600
  123.       Left            =   2925
  124.       TabIndex        =   0
  125.       Top             =   2145
  126.       Width           =   1410
  127.    End
  128. End
  129. DefInt A-Z
  130. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  131. Declare Function GetWinFlags Lib "Kernel" () As Long
  132. Const WF_STANDARD = &H10
  133. Const WF_ENHANCED = &H20
  134. Const WF_80x87 = &H400
  135.  
  136. Sub Cmd_OK_Click ()
  137.     Unload AboutBox
  138. End Sub
  139.  
  140. Sub Form_Load ()
  141. Dim WinFlags As Long
  142. Dim Mode As String, Processor As String
  143.     ' Dialog Boxes should only have Move and Close items
  144.     ' in their System menus', so remove the others.
  145.     'Remove_Items_From_Sysmenu AboutBox
  146.     ' Center the AboutBox on the screen
  147.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  148.     ' Get current Windows configuration
  149.     WinFlags = GetWinFlags()
  150.     If WinFlags And WF_ENHANCED Then Mode = "386 Enhanced Mode" Else Mode = "Standard Mode"
  151.     Lbl_Info.Caption = Mode + Chr$(13) + "Free Memory:" + Chr$(13) + "Math Co-processor:"
  152.     If WinFlags And WF_80x87 Then Processor = "Present" Else Processor = "None"
  153.     Lbl_InfoValues.Caption = Chr$(13) + Format$(GetFreeSpace(0) \ 1024) + " KB" + Chr$(13) + Processor
  154.     Lbl_Microsoft = "Written by Douglas Brown - dmSoftware." & Chr$(13) & "Demonstrates various techniques in using the  Custom Control."
  155. End Sub
  156.  
  157.